home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Super_Inte2158537272009.psc / Super_InternetTV-vb code / about.frm next >
Text File  |  2009-07-04  |  4KB  |  121 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
  3. Begin VB.Form about 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About Super InternetTV"
  7.    ClientHeight    =   8700
  8.    ClientLeft      =   2100
  9.    ClientTop       =   1380
  10.    ClientWidth     =   10935
  11.    ClipControls    =   0   'False
  12.    Icon            =   "about.frx":0000
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    MouseIcon       =   "about.frx":08CA
  17.    MousePointer    =   99  'Custom
  18.    ScaleHeight     =   6004.894
  19.    ScaleMode       =   0  'User
  20.    ScaleWidth      =   10268.53
  21.    ShowInTaskbar   =   0   'False
  22.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  23.       Height          =   7935
  24.       Left            =   0
  25.       TabIndex        =   3
  26.       Top             =   0
  27.       Width           =   10935
  28.       ExtentX         =   19288
  29.       ExtentY         =   13996
  30.       ViewMode        =   0
  31.       Offline         =   0
  32.       Silent          =   0
  33.       RegisterAsBrowser=   0
  34.       RegisterAsDropTarget=   1
  35.       AutoArrange     =   0   'False
  36.       NoClientEdge    =   0   'False
  37.       AlignLeft       =   0   'False
  38.       NoWebView       =   0   'False
  39.       HideFileNames   =   0   'False
  40.       SingleClick     =   0   'False
  41.       SingleSelection =   0   'False
  42.       NoFolders       =   0   'False
  43.       Transparent     =   0   'False
  44.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  45.       Location        =   "http:///"
  46.    End
  47.    Begin VB.CommandButton cmdOK 
  48.       Cancel          =   -1  'True
  49.       Caption         =   "&Close"
  50.       Default         =   -1  'True
  51.       BeginProperty Font 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   12
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   555
  61.       Left            =   4800
  62.       Style           =   1  'Graphical
  63.       TabIndex        =   0
  64.       Top             =   8040
  65.       Width           =   1500
  66.    End
  67.    Begin VB.Label Label1 
  68.       BackColor       =   &H00C0C0C0&
  69.       BackStyle       =   0  'Transparent
  70.       BeginProperty Font 
  71.          Name            =   "Arial"
  72.          Size            =   9.75
  73.          Charset         =   0
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       ForeColor       =   &H00FFFFFF&
  80.       Height          =   2595
  81.       Left            =   5520
  82.       TabIndex        =   2
  83.       Top             =   120
  84.       Width           =   4215
  85.    End
  86.    Begin VB.Label lblDescription 
  87.       BackStyle       =   0  'Transparent
  88.       BeginProperty Font 
  89.          Name            =   "Arial"
  90.          Size            =   9.75
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   -1  'True
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H00FFFFFF&
  98.       Height          =   3330
  99.       Left            =   5520
  100.       TabIndex        =   1
  101.       Top             =   2520
  102.       Width           =   4125
  103.    End
  104. End
  105. Attribute VB_Name = "about"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110.  
  111. Private Sub Form_Load()
  112. WebBrowser1.Navigate App.Path & "\data\about.swf"
  113. End Sub
  114.  
  115. Private Sub cmdOK_Click()
  116. main.Enabled = True
  117. Unload Me
  118. End Sub
  119.   
  120.  
  121.